--- title: Buffon's needles author: Ty Tuff date: '2018-12-07' slug: pie-from-matches categories: [] tags: [] ---
Make a match
match_stick_length <- 10
number_of_matches_in_a_box <- 1000
distance_between_surface_lines <- 20
point_1 <- c(-(match_stick_length/2),(match_stick_length/2))
point_2 <- c(0.01,0.01)
single_match <-cbind(point_1, point_2)
rownames(single_match)<- c("point_1","point_2")
colnames(single_match)<- c("x","y")
single_match
## x y
## point_1 -5 0.01
## point_2 5 0.01
library(rgl)
library(shiny)
plotids <- with(iris,
readSTL( "~/Downloads/STL/Bolt Big.STL", plot=TRUE, col="grey")
)
rglwidget(elementId = "plot3drgl222")